home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / GNU_C++ / LIB / SRC / GEMLIB38.LZH / a_form.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-07-10  |  2.5 KB  |  123 lines
  1. /*
  2.  * Aes forms library interface
  3.  *
  4.  * ++jrb bammi@cadence.com
  5.  * modified: mj -- ntomczak@vm.ucs.ualberta.ca
  6.  * modified: cg -- d2cg@dtek.chalmers.se
  7.  * modified: cf -- felsch@tu-harburg.de
  8.  */
  9. #include "gem.h"
  10.  
  11.  
  12. int form_alert(int DefButton, char *Str)
  13. {
  14.     aes_intin[0] = DefButton;
  15.     aes_addrin[0] = (long)Str;
  16.     aes_control[0] = 52;
  17.     aes_control[1] = 1;
  18.     aes_control[2] = 1;
  19.     aes_control[3] = 1;
  20.     aes_control[4] = 0;
  21.     aes(&aes_params);
  22.     return aes_intout[0];
  23. }
  24.  
  25.  
  26. int form_button(void *Btree, int Bobject, int Bclicks, int *Bnxtobj)
  27. {
  28.     aes_addrin[0] = (long)Btree;
  29.     aes_intin[0] = Bobject;
  30.     aes_intin[1] = Bclicks;
  31.     aes_control[0] = 56;
  32.     aes_control[1] = 2;
  33.     aes_control[2] = 2;
  34.     aes_control[3] = 1;
  35.     aes_control[4] = 0;
  36.     aes(&aes_params);
  37.     *Bnxtobj = aes_intout[1];
  38.     return aes_intout[0];
  39. }
  40.  
  41.  
  42. int form_center(void *Tree, int *Cx, int *Cy, int *Cw, int *Ch)
  43. {
  44.     aes_addrin[0] = (long)Tree;
  45.     aes_control[0] = 54;
  46.     aes_control[1] = 0;
  47.     aes_control[2] = 5;
  48.     aes_control[3] = 1;
  49.     aes_control[4] = 0;
  50.     aes(&aes_params);
  51.     *Cx = aes_intout[1];
  52.     *Cy = aes_intout[2];
  53.     *Cw = aes_intout[3];
  54.     *Ch = aes_intout[4];
  55.      return aes_intout[0];
  56. }
  57.  
  58.  
  59. int form_dial(int Flag,    int Sx, int Sy, int Sw, int Sh, int Bx, int By, int Bw, int Bh)
  60. {
  61.     aes_intin[0] = Flag;
  62.     aes_intin[1] = Sx;
  63.     aes_intin[2] = Sy;
  64.     aes_intin[3] = Sw;
  65.     aes_intin[4] = Sh;
  66.     aes_intin[5] = Bx;
  67.     aes_intin[6] = By;
  68.     aes_intin[7] = Bw;
  69.     aes_intin[8] = Bh;
  70.     aes_control[0] = 51;
  71.     aes_control[1] = 9;
  72.     aes_control[2] = 1;
  73.     aes_control[3] = 0;
  74.     aes_control[4] = 0;
  75.     aes(&aes_params);
  76.     return aes_intout[0];
  77. }
  78.  
  79.  
  80. int form_do(void *Tree, int StartObj)
  81. {
  82.     aes_intin[0] = StartObj;
  83.     aes_addrin[0] = (long)Tree;
  84.     aes_control[0] = 50;
  85.     aes_control[1] = 1;
  86.     aes_control[2] = 1;
  87.     aes_control[3] = 1;
  88.     aes_control[4] = 0;
  89.     aes(&aes_params);
  90.     return aes_intout[0];
  91. }
  92.  
  93.  
  94. int form_error(int ErrorCode)
  95. {
  96.     aes_intin[0] = ErrorCode;
  97.     aes_control[0] = 53;
  98.     aes_control[1] = 1;
  99.     aes_control[2] = 1;
  100.     aes_control[3] = 0;
  101.     aes_control[4] = 0;
  102.     aes(&aes_params);
  103.     return aes_intout[0];
  104. }
  105.  
  106.  
  107. int form_keybd(void *Ktree, int Kobject, int Kobnext, int Kchar, int *Knxtobject, int *Knxtchar)
  108. {
  109.     aes_addrin[0] =(long) Ktree;
  110.     aes_intin[0] = Kobject;
  111.     aes_intin[1] = Kchar;
  112.     aes_intin[2] = Kobnext;
  113.     aes_control[0] = 55;
  114.     aes_control[1] = 3;
  115.     aes_control[2] = 3;
  116.     aes_control[3] = 1;
  117.     aes_control[4] = 0;
  118.     aes(&aes_params);
  119.     *Knxtobject = aes_intout[1];
  120.     *Knxtchar = aes_intout[2];
  121.     return aes_intout[0];
  122. }
  123.